<!DOCTYPE html>
<html lang="en">
  <head>
    <meta charset="utf-8">
    <meta http-equiv="X-UA-Compatible" content="IE=edge">
    <meta name="viewport" content="width=device-width, initial-scale=1">
    <title>Encode::GSM0338 -- ETSI GSM 03.38 Encoding - Perldoc Browser</title>
    <link rel="search" href="https://perldoc.perl.org/opensearch.xml" type="application/opensearchdescription+xml" title="Perldoc Browser">
    <link rel="canonical" href="https://perldoc.perl.org/Encode::GSM0338">
    <link rel="stylesheet" href="https://stackpath.bootstrapcdn.com/bootstrap/4.5.2/css/bootstrap.min.css" integrity="sha384-JcKb8q3iqJ61gNV9KGb8thSsNjpSL0n8PARn9HuZOnIxN0hoP+VmmDGMN5t9UJ0Z" crossorigin="anonymous">
    <link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/highlight.js/10.5.0/styles/stackoverflow-light.min.css" integrity="sha512-cG1IdFxqipi3gqLmksLtuk13C+hBa57a6zpWxMeoY3Q9O6ooFxq50DayCdm0QrDgZjMUn23z/0PMZlgft7Yp5Q==" crossorigin="anonymous" />
    <style>
      body {
        background: #f4f4f5;
        color: #020202;
      }
      .navbar-dark {
        background-image: -webkit-linear-gradient(top, #005f85 0, #002e49 100%);
        background-image: -o-linear-gradient(top, #005f85 0, #002e49 100%);
        background-image: linear-gradient(to bottom, #005f85 0, #002e49 100%);
        filter: progid:DXImageTransform.Microsoft.gradient(startColorstr='#ff005f85', endColorstr='#ff002e49', GradientType=0);
        background-repeat: repeat-x;
      }
      .navbar-dark .navbar-nav .nav-link,
      .navbar-dark .navbar-nav .nav-link:focus { color: #fff }
      .navbar-dark .navbar-nav .nav-link:hover { color: #ffef68 }
      #wrapperlicious {
        margin: 0 auto;
        font: 0.9em 'Helvetica Neue', Helvetica, sans-serif;
        font-weight: normal;
        line-height: 1.5em;
        margin: 0;
        padding: 0;
      }
      #wrapperlicious h1 { font-size: 1.5em }
      #wrapperlicious h2 { font-size: 1.3em }
      #wrapperlicious h3 { font-size: 1.1em }
      #wrapperlicious h4 { font-size: 0.9em }
      #wrapperlicious h1, #wrapperlicious h2, #wrapperlicious h3,
      #wrapperlicious h4, #wrapperlicious dt {
        color: #020202;
        margin-top: 1em;
        margin-bottom: 1em;
        position: relative;
        font-weight: bold;
      }
      #wrapperlicious a { color: inherit; text-decoration: underline }
      #wrapperlicious #toc { text-decoration: none }
      #wrapperlicious a:hover { color: #2a2a2a }
      #wrapperlicious a img { border: 0 }
      #wrapperlicious :not(pre) > code {
        color: inherit;
        background-color: rgba(0, 0, 0, 0.04);
        border-radius: 3px;
        font: 0.9em Consolas, Menlo, Monaco, monospace;
        padding: 0.3em;
      }
      #wrapperlicious dd {
        margin: 0;
        margin-left: 2em;
      }
      #wrapperlicious dt {
        color: #2a2a2a;
        font-weight: bold;
        margin-left: 0.9em;
      }
      #wrapperlicious p {
        margin-bottom: 1em;
        margin-top: 1em;
      }
      #wrapperlicious li > p {
        margin-bottom: 0;
        margin-top: 0;
      }
      #wrapperlicious pre {
        border: 1px solid #c1c1c1;
        border-radius: 3px;
        font: 100% Consolas, Menlo, Monaco, monospace;
        margin-bottom: 1em;
        margin-top: 1em;
      }
      #wrapperlicious pre > code {
        display: block;
        background-color: #f6f6f6;
        font: 0.9em Consolas, Menlo, Monaco, monospace;
        line-height: 1.5em;
        text-align: left;
        white-space: pre;
        padding: 1em;
      }
      #wrapperlicious dl, #wrapperlicious ol, #wrapperlicious ul {
        margin-bottom: 1em;
        margin-top: 1em;
      }
      #wrapperlicious ul {
        list-style-type: square;
      }
      #wrapperlicious ul ul {
        margin-bottom: 0px;
        margin-top: 0px;
      }
      #footer {
        font-size: 0.8em;
        padding-top: 0.5em;
        text-align: center;
      }
      #more {
        display: inline;
        font-size: 0.8em;
      }
      #perldocdiv {
        background-color: #fff;
        border: 1px solid #c1c1c1;
        border-bottom-left-radius: 5px;
        border-bottom-right-radius: 5px;
        margin-left: auto;
        margin-right: auto;
        padding: 3em;
        padding-top: 1em;
        max-width: 960px;
      }
      #moduleversion { float: right }
      #wrapperlicious .leading-notice {
        font-style: italic;
        padding-left: 1em;
        margin-top: 1em;
        margin-bottom: 1em;
      }
      #wrapperlicious .permalink {
        display: none;
        left: -0.75em;
        position: absolute;
        padding-right: 0.25em;
        text-decoration: none;
      }
      #wrapperlicious h1:hover .permalink, #wrapperlicious h2:hover .permalink,
      #wrapperlicious h3:hover .permalink, #wrapperlicious h4:hover .permalink,
      #wrapperlicious dt:hover .permalink {
        display: block;
      }
    </style>
    <!-- Global site tag (gtag.js) - Google Analytics -->
    <script async src="https://www.googletagmanager.com/gtag/js?id=G-KVNWBNT5FB"></script>
    <script>
      window.dataLayer = window.dataLayer || [];
      function gtag(){dataLayer.push(arguments);}
      gtag('js', new Date());

      gtag('config', 'G-KVNWBNT5FB');
      gtag('config', 'UA-50555-3');
    </script>
  </head>
  <body>
    <nav class="navbar navbar-expand-md navbar-dark bg-dark justify-content-between">
  <button class="navbar-toggler" type="button" data-toggle="collapse" data-target="#navbarNav" aria-controls="navbarNav" aria-expanded="false" aria-label="Toggle navigation">
    <span class="navbar-toggler-icon"></span>
  </button>
  <a class="navbar-brand" href="https://perldoc.perl.org/">Perldoc Browser</a>
  <div class="collapse navbar-collapse" id="navbarNav">
    <ul class="navbar-nav mr-auto">
      <li class="nav-item dropdown text-nowrap">
        <a class="nav-link dropdown-toggle" href="./Encode::GSM0338.html#" id="dropdownlink-stable" role="button" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">5.35.0</a>
        <div class="dropdown-menu" aria-labelledby="dropdownlink-stable">
          <a class="dropdown-item" href="https://perldoc.perl.org/Encode::GSM0338">Latest</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.38.2/Encode::GSM0338">5.38.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.38.1/Encode::GSM0338">5.38.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.38.0/Encode::GSM0338">5.38.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.36.3/Encode::GSM0338">5.36.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.36.2/Encode::GSM0338">5.36.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.36.1/Encode::GSM0338">5.36.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.36.0/Encode::GSM0338">5.36.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.34.3/Encode::GSM0338">5.34.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.34.2/Encode::GSM0338">5.34.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.34.1/Encode::GSM0338">5.34.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.34.0/Encode::GSM0338">5.34.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.32.1/Encode::GSM0338">5.32.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.32.0/Encode::GSM0338">5.32.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.30.3/Encode::GSM0338">5.30.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.30.2/Encode::GSM0338">5.30.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.30.1/Encode::GSM0338">5.30.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.30.0/Encode::GSM0338">5.30.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.28.3/Encode::GSM0338">5.28.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.28.2/Encode::GSM0338">5.28.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.28.1/Encode::GSM0338">5.28.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.28.0/Encode::GSM0338">5.28.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.26.3/Encode::GSM0338">5.26.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.26.2/Encode::GSM0338">5.26.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.26.1/Encode::GSM0338">5.26.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.26.0/Encode::GSM0338">5.26.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.24.4/Encode::GSM0338">5.24.4</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.24.3/Encode::GSM0338">5.24.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.24.2/Encode::GSM0338">5.24.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.24.1/Encode::GSM0338">5.24.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.24.0/Encode::GSM0338">5.24.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.22.4/Encode::GSM0338">5.22.4</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.22.3/Encode::GSM0338">5.22.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.22.2/Encode::GSM0338">5.22.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.22.1/Encode::GSM0338">5.22.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.22.0/Encode::GSM0338">5.22.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.20.3/Encode::GSM0338">5.20.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.20.2/Encode::GSM0338">5.20.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.20.1/Encode::GSM0338">5.20.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.20.0/Encode::GSM0338">5.20.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.18.4/Encode::GSM0338">5.18.4</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.18.3/Encode::GSM0338">5.18.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.18.2/Encode::GSM0338">5.18.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.18.1/Encode::GSM0338">5.18.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.18.0/Encode::GSM0338">5.18.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.16.3/Encode::GSM0338">5.16.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.16.2/Encode::GSM0338">5.16.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.16.1/Encode::GSM0338">5.16.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.16.0/Encode::GSM0338">5.16.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.14.4/Encode::GSM0338">5.14.4</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.14.3/Encode::GSM0338">5.14.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.14.2/Encode::GSM0338">5.14.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.14.1/Encode::GSM0338">5.14.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.14.0/Encode::GSM0338">5.14.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.12.5/Encode::GSM0338">5.12.5</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.12.4/Encode::GSM0338">5.12.4</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.12.3/Encode::GSM0338">5.12.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.12.2/Encode::GSM0338">5.12.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.12.1/Encode::GSM0338">5.12.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.12.0/Encode::GSM0338">5.12.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.10.1/Encode::GSM0338">5.10.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.10.0/Encode::GSM0338">5.10.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.8.9/Encode::GSM0338">5.8.9</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.8.8/Encode::GSM0338">5.8.8</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.8.7/Encode::GSM0338">5.8.7</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.8.6/Encode::GSM0338">5.8.6</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.8.5/Encode::GSM0338">5.8.5</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.8.4/Encode::GSM0338">5.8.4</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.8.3/Encode::GSM0338">5.8.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.8.2/Encode::GSM0338">5.8.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.8.1/Encode::GSM0338">5.8.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.8.0/Encode::GSM0338">5.8.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.6.2/Encode::GSM0338">5.6.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.6.1/Encode::GSM0338">5.6.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.6.0/Encode::GSM0338">5.6.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.005_04/Encode::GSM0338">5.005_04</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.005_03/Encode::GSM0338">5.005_03</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.005_02/Encode::GSM0338">5.005_02</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.005_01/Encode::GSM0338">5.005_01</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.005/Encode::GSM0338">5.005</a>
        </div>
      </li>
      <li class="nav-item dropdown text-nowrap">
        <a class="nav-link dropdown-toggle" href="./Encode::GSM0338.html#" id="dropdownlink-dev" role="button" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Dev</a>
        <div class="dropdown-menu" aria-labelledby="dropdownlink-dev">
          <a class="dropdown-item" href="https://perldoc.perl.org/blead/Encode::GSM0338">blead</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.39.6/Encode::GSM0338">5.39.6</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.39.5/Encode::GSM0338">5.39.5</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.39.4/Encode::GSM0338">5.39.4</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.39.3/Encode::GSM0338">5.39.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.39.2/Encode::GSM0338">5.39.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.39.1/Encode::GSM0338">5.39.1</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.38.0-RC2/Encode::GSM0338">5.38.0-RC2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.38.0-RC1/Encode::GSM0338">5.38.0-RC1</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.11/Encode::GSM0338">5.37.11</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.10/Encode::GSM0338">5.37.10</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.9/Encode::GSM0338">5.37.9</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.8/Encode::GSM0338">5.37.8</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.7/Encode::GSM0338">5.37.7</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.6/Encode::GSM0338">5.37.6</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.5/Encode::GSM0338">5.37.5</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.4/Encode::GSM0338">5.37.4</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.3/Encode::GSM0338">5.37.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.2/Encode::GSM0338">5.37.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.1/Encode::GSM0338">5.37.1</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.37.0/Encode::GSM0338">5.37.0</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.35.11/Encode::GSM0338">5.35.11</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.35.10/Encode::GSM0338">5.35.10</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.35.9/Encode::GSM0338">5.35.9</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.35.8/Encode::GSM0338">5.35.8</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.35.7/Encode::GSM0338">5.35.7</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.35.6/Encode::GSM0338">5.35.6</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.35.5/Encode::GSM0338">5.35.5</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.35.4/Encode::GSM0338">5.35.4</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.35.3/Encode::GSM0338">5.35.3</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.35.2/Encode::GSM0338">5.35.2</a>
          <a class="dropdown-item" href="https://perldoc.perl.org/5.35.1/Encode::GSM0338">5.35.1</a>
          <a class="dropdown-item active" href="./Encode::GSM0338.html">5.35.0</a>
        </div>
      </li>
      <li class="nav-item dropdown text-nowrap">
        <a class="nav-link dropdown-toggle" href="./Encode::GSM0338.html#" id="dropdownlink-nav" role="button" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false">Documentation</a>
        <div class="dropdown-menu" aria-labelledby="dropdownlink-nav">
          <a class="dropdown-item" href="perl.html">Perl</a>
          <a class="dropdown-item" href="perlintro.html">Intro</a>
          <a class="dropdown-item" href="perl.html#Tutorials">Tutorials</a>
          <a class="dropdown-item" href="perlfaq.html">FAQs</a>
          <a class="dropdown-item" href="perl.html#Reference-Manual">Reference</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="perlop.html">Operators</a>
          <a class="dropdown-item" href="functions.html">Functions</a>
          <a class="dropdown-item" href="variables.html">Variables</a>
          <a class="dropdown-item" href="modules.html">Modules</a>
          <a class="dropdown-item" href="perlutil.html">Utilities</a>
          <div class="dropdown-divider"></div>
          <a class="dropdown-item" href="perlcommunity.html">Community</a>
          <a class="dropdown-item" href="perlhist.html">History</a>
        </div>
      </li>
    </ul>
    <ul class="navbar-nav">
      <script>
        function set_expand (expand) {
          var perldocdiv = document.getElementById('perldocdiv');
          var width = window.getComputedStyle(perldocdiv).getPropertyValue('max-width');
          var expanded = (width == '' || width == 'none') ? true : false;
          if (expand === null) {
            expand = !expanded;
          }
          if ((expand && !expanded) || (!expand && expanded)) {
            perldocdiv.style.setProperty('max-width', expand ? 'none' : '960px');
            var button_classlist = document.getElementById('content-expand-button').classList;
            if (expand) {
              button_classlist.add('btn-light');
              button_classlist.remove('btn-outline-light');
            } else {
              button_classlist.add('btn-outline-light');
              button_classlist.remove('btn-light');
            }
          }
          return expand;
        }
        function toggle_expand () {
          var expand = set_expand(null);
          document.cookie = 'perldoc_expand=' + (expand ? 1 : 0) + '; path=/; expires=Tue, 19 Jan 2038 03:14:07 UTC';
        }
        function read_expand () {
          return document.cookie.split(';').some(function (item) { return item.indexOf('perldoc_expand=1') >= 0 });
        }
        if (document.readyState === 'loading') {
          document.addEventListener('DOMContentLoaded', function () {
            if (read_expand()) {
              set_expand(true);
            }
          });
        } else if (read_expand()) {
          set_expand(true);
        }
      </script>
      <button id="content-expand-button" type="button" class="btn btn-outline-light d-none d-lg-inline-block mr-2" onclick="toggle_expand()">Expand</button>
    <ul>
    <form class="form-inline" method="get" action="https://perldoc.perl.org/5.35.0/search">
      <input class="form-control mr-3" type="search" name="q" placeholder="Search" aria-label="Search">
    </form>
  </div>
</nav>

    <div id="wrapperlicious" class="container-fluid">
      <div id="perldocdiv">
        <div id="links">
          <a href="./Encode::GSM0338.html">Encode::GSM0338</a>
          <div id="more">
            (<a href="./Encode::GSM0338.txt">source</a>,
            <a href="https://metacpan.org/pod/Encode::GSM0338">CPAN</a>)
          </div>
            <div id="moduleversion">version 2.09</div>
        </div>
        <div class="leading-notice">
          You are viewing the version of this documentation from Perl 5.35.0.
            This is a development version of Perl.
        </div>
        <h1><a id="toc">CONTENTS</a></h1>
                  <ul>
              <li>
                <a class="text-decoration-none" href="./Encode::GSM0338.html#NAME">NAME</a>
              </li>
              <li>
                <a class="text-decoration-none" href="./Encode::GSM0338.html#SYNOPSIS">SYNOPSIS</a>
              </li>
              <li>
                <a class="text-decoration-none" href="./Encode::GSM0338.html#DESCRIPTION">DESCRIPTION</a>
                            <ul>
              <li>
                <a class="text-decoration-none" href="./Encode::GSM0338.html#Septets">Septets</a>
              </li>
          </ul>

              </li>
              <li>
                <a class="text-decoration-none" href="./Encode::GSM0338.html#BUGS">BUGS</a>
              </li>
              <li>
                <a class="text-decoration-none" href="./Encode::GSM0338.html#SEE-ALSO">SEE ALSO</a>
              </li>
          </ul>

      <h1 id="NAME"><a class="permalink" href="./Encode::GSM0338.html#NAME">#</a>NAME</h1>

<p>Encode::GSM0338 -- ETSI GSM 03.38 Encoding</p>

<h1 id="SYNOPSIS"><a class="permalink" href="./Encode::GSM0338.html#SYNOPSIS">#</a>SYNOPSIS</h1>

<pre><code>use Encode qw/encode decode/;
$gsm0338 = encode(&quot;gsm0338&quot;, $unicode); # loads Encode::GSM0338 implicitly
$unicode = decode(&quot;gsm0338&quot;, $gsm0338); # ditto</code></pre>

<h1 id="DESCRIPTION"><a class="permalink" href="./Encode::GSM0338.html#DESCRIPTION">#</a>DESCRIPTION</h1>

<p>GSM0338 is for GSM handsets. Though it shares alphanumerals with ASCII, control character ranges and other parts are mapped very differently, mainly to store Greek characters. There are also escape sequences (starting with 0x1B) to cover e.g. the Euro sign.</p>

<p>This was once handled by <a href="https://perldoc.perl.org/5.35.0/Encode::Bytes">Encode::Bytes</a> but because of all those unusual specifications, Encode 2.20 has relocated the support to this module.</p>

<p>This module implements only <i>GSM 7 bit Default Alphabet</i> and <i>GSM 7 bit default alphabet extension table</i> according to standard 3GPP TS 23.038 version 16. Therefore <i>National Language Single Shift</i> and <i>National Language Locking Shift</i> are not implemented nor supported.</p>

<h2 id="Septets"><a class="permalink" href="./Encode::GSM0338.html#Septets">#</a>Septets</h2>

<p>This modules operates with octets (like any other Encode module) and not with packed septets (unlike other GSM standards). Therefore for processing binary SMS or parts of GSM TPDU payload (3GPP TS 23.040) it is needed to do conversion between octets and packed septets. For this purpose perl&#39;s <code>pack</code> and <code>unpack</code> functions may be useful:</p>

<pre><code>$bytes = substr(pack(&#39;(b*)*&#39;, unpack &#39;(A7)*&#39;, unpack &#39;b*&#39;, $septets), 0, $num_of_septets);
$unicode = decode(&#39;GSM0338&#39;, $bytes);

$bytes = encode(&#39;GSM0338&#39;, $unicode);
$septets = pack &#39;b*&#39;, join &#39;&#39;, map { substr $_, 0, 7 } unpack &#39;(A8)*&#39;, unpack &#39;b*&#39;, $bytes;
$num_of_septets = length $bytes;</code></pre>

<p>Please note that for correct decoding of packed septets it is required to know number of septets packed in binary buffer as binary buffer is always padded with zero bits and 7 zero bits represents character <code>@</code>. Number of septets is also stored in TPDU payload when dealing with 3GPP TS 23.040.</p>

<h1 id="BUGS"><a class="permalink" href="./Encode::GSM0338.html#BUGS">#</a>BUGS</h1>

<p>Encode::GSM0338 2.7 and older versions (part of Encode 3.06) incorrectly handled zero bytes (character <code>@</code>). This was fixed in Encode::GSM0338 version 2.8 (part of Encode 3.07).</p>

<h1 id="SEE-ALSO"><a class="permalink" href="./Encode::GSM0338.html#SEE-ALSO">#</a><a id="SEE"></a>SEE ALSO</h1>

<p><a href="https://www.3gpp.org/dynareport/23038.htm">3GPP TS 23.038</a></p>

<p><a href="https://www.etsi.org/deliver/etsi_ts/123000_123099/123038/16.00.00_60/ts_123038v160000p.pdf">ETSI TS 123 038 V16.0.0 (2020-07)</a></p>

<p><a href="Encode.html">Encode</a></p>


      </div>
      <div id="footer">
        <p>Perldoc Browser is maintained by Dan Book (<a href="https://metacpan.org/author/DBOOK">DBOOK</a>). Please contact him via the <a href="https://github.com/Grinnz/perldoc-browser/issues">GitHub issue tracker</a> or <a href="mailto:dbook@cpan.org">email</a> regarding any issues with the site itself, search, or rendering of documentation.</p>

<p>The Perl documentation is maintained by the Perl 5 Porters in the development of Perl. Please contact them via the <a href="https://github.com/Perl/perl5/issues">Perl issue tracker</a>, the <a href="https://lists.perl.org/list/perl5-porters.html">mailing list</a>, or <a href="https://kiwiirc.com/client/irc.perl.org/p5p">IRC</a> to report any issues with the contents or format of the documentation.</p>


      </div>
    </div>
    <script src="https://cdnjs.cloudflare.com/ajax/libs/jquery/3.5.1/jquery.slim.min.js" integrity="sha512-/DXTXr6nQodMUiq+IUJYCt2PPOUjrHJ9wFrqpJ3XkgPNOZVfMok7cRw6CSxyCQxXn6ozlESsSh1/sMCTF1rL/g==" crossorigin="anonymous"></script>
    <script src="https://cdnjs.cloudflare.com/ajax/libs/popper.js/1.16.1/umd/popper.min.js" integrity="sha512-ubuT8Z88WxezgSqf3RLuNi5lmjstiJcyezx34yIU2gAHonIi27Na7atqzUZCOoY4CExaoFumzOsFQ2Ch+I/HCw==" crossorigin="anonymous"></script>
    <script src="https://stackpath.bootstrapcdn.com/bootstrap/4.5.2/js/bootstrap.min.js" integrity="sha384-B4gt1jrGC7Jh4AgTPSdUtOBvfO8shuf57BaghqFfPlYxofvL8/KUEfYiJOMMV+rV" crossorigin="anonymous"></script>
    <script src="../highlight.pack.js"></script>
    <script>hljs.highlightAll();</script>
  </body>
</html>
